home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / cv_read.arj / IEEE2CLP.C < prev    next >
Text File  |  1993-08-08  |  714b  |  29 lines
  1. ----------------------------------------------------------------------
  2. Subject: IEEE to Clipper Floats
  3.    From: Ted Means [73067,3332]
  4.      To: John Wright [70534,2330]
  5.   Forum: CLIPPER  Section: CA-Clipper Prog. #2
  6.    Date: 06-Aug-93   09:44:07
  7. ----------------------------------------------------------------------
  8.  
  9.    CLIPPER IEEE2Clip( void )
  10.    {
  11.       auto char * cVal = _parc( 1 );
  12.       auto double nVal;
  13.  
  14.       if ( _parclen( 1 ) == 4 )
  15.          nVal = ( double ) ( *( float * ) cVal );
  16.       else
  17.          nVal = *( double * ) cVal;
  18.  
  19.       _retnd( nVal );
  20.  
  21.       return;
  22.    }
  23.  
  24. If you don't have a C compiler, let me know and I'll send you the .OBJ
  25. file via email.
  26.  
  27. Ted Means
  28.  
  29.